home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_eval.exe / %MAINDIR% / EvalC3 / FPTOpenDlg.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-08-31  |  19.7 KB  |  481 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'FPTOpenDlg.pas' rev: 3.00
  6.  
  7. #ifndef FPTOpenDlgHPP
  8. #define FPTOpenDlgHPP
  9. #include <UPTFrame.hpp>
  10. #include <UPTShConsts.hpp>
  11. #include <UPTTreeList.hpp>
  12. #include <UPTShellUtils.hpp>
  13. #include <UPTShell95.hpp>
  14. #include <UPTSplitter.hpp>
  15. #include <UPTImageCombo.hpp>
  16. #include <UPTShellControls.hpp>
  17. #include <OLE2.hpp>
  18. #include <Menus.hpp>
  19. #include <ExtCtrls.hpp>
  20. #include <Buttons.hpp>
  21. #include <ComCtrls.hpp>
  22. #include <StdCtrls.hpp>
  23. #include <TypInfo.hpp>
  24. #include <Dialogs.hpp>
  25. #include <Forms.hpp>
  26. #include <Controls.hpp>
  27. #include <Graphics.hpp>
  28. #include <Classes.hpp>
  29. #include <SysUtils.hpp>
  30. #include <Messages.hpp>
  31. #include <Windows.hpp>
  32. #include <SysInit.hpp>
  33. #include <System.hpp>
  34.  
  35. //-- user supplied -----------------------------------------------------------
  36.  
  37. namespace Fptopendlg
  38. {
  39. //-- type declarations -------------------------------------------------------
  40. enum TPTOpenOption { ptofAllowMultiselect, ptofCreatePrompt, ptofExtensionDifferent, ptofFileMustExist, 
  41.     ptofHideReadOnly, ptofNoChangeDir, ptofNoDereferenceLinks, ptofNoReadOnlyReturn, ptofNoTestFileCreate, 
  42.     ptofNoValidate, ptofOverwritePrompt, ptofReadOnly, ptofPathMustExist, ptofShareAware, ptofShowHelp, 
  43.     ptofAllowTree, ptofShowTree, ptofShowHints, ptofHideFoldersInListWhenTreeVisible, ptofOleDrag, ptofOleDrop, 
  44.     ptofShowHidden };
  45.  
  46. typedef Set<TPTOpenOption, ptofAllowMultiselect, ptofShowHidden>  TPTOpenOptions;
  47.  
  48. class DELPHICLASS TPTDialog;
  49. class PASCALIMPLEMENTATION TPTDialog : public Classes::TComponent 
  50. {
  51.     typedef Classes::TComponent inherited;
  52.     
  53. private:
  54.     int mFormWidth;
  55.     int mFormHeight;
  56.     TWindowState mWindowState;
  57.     System::AnsiString mTitle;
  58.     Classes::TNotifyEvent mOnInit;
  59.     Classes::TNotifyEvent mOnFormShow;
  60.     Classes::TNotifyEvent mOnFormClose;
  61.     bool mfExecuting;
  62.     
  63. protected:
  64.     DYNAMIC void __fastcall DoInitialized(void);
  65.     DYNAMIC bool __fastcall DoExecute(void) = 0;
  66.     __property bool Executing = {read=mfExecuting, nodefault};
  67.     __property System::AnsiString Title = {read=mTitle, write=mTitle};
  68.     __property int FormWidth = {read=mFormWidth, write=mFormWidth, default=-1};
  69.     __property int FormHeight = {read=mFormHeight, write=mFormHeight, default=-1};
  70.     __property Forms::TWindowState FormWindowState = {read=mWindowState, write=mWindowState, default=0}
  71.         ;
  72.     __property Classes::TNotifyEvent OnInitialized = {read=mOnInit, write=mOnInit};
  73.     __property Classes::TNotifyEvent OnFormClose = {read=mOnFormClose, write=mOnFormClose};
  74.     __property Classes::TNotifyEvent OnFormShow = {read=mOnFormShow, write=mOnFormShow};
  75.     
  76. public:
  77.     __fastcall virtual TPTDialog(Classes::TComponent* aOwner);
  78.     bool __fastcall Execute(void);
  79.     void __fastcall ReadStateFromRegistry(HKEY baseKey, System::AnsiString aSubKeyName, System::AnsiString 
  80.         aValueName);
  81.     void __fastcall WriteStateToRegistry(HKEY baseKey, System::AnsiString aSubKeyName, System::AnsiString 
  82.         aValueName);
  83.     DYNAMIC void __fastcall ReadStateFromStream(Classes::TStream* aStream);
  84.     DYNAMIC void __fastcall WriteStateToStream(Classes::TStream* aStream);
  85. public:
  86.     /* TComponent.Destroy */ __fastcall virtual ~TPTDialog(void) { }
  87.     
  88. };
  89.  
  90. class DELPHICLASS TPTFileDlg;
  91. class DELPHICLASS TPTFrmOpenDlg;
  92. enum TPTFrmOpenDlg_LIS { lisEdit, lisList };
  93.  
  94. class PASCALIMPLEMENTATION TPTFrmOpenDlg : public Forms::TForm 
  95. {
  96.     typedef Forms::TForm inherited;
  97.     
  98. __published:
  99.     Stdctrls::TLabel* LookInTxt;
  100.     Uptshellcontrols::TPTShellCombo* PTShellCombo1;
  101.     Buttons::TSpeedButton* UpOneLevelBtn;
  102.     Buttons::TSpeedButton* ListBtn;
  103.     Buttons::TSpeedButton* DetailsBtn;
  104.     Buttons::TSpeedButton* CreateNewFolderBtn;
  105.     Extctrls::TPanel* Panel1;
  106.     Stdctrls::TLabel* FileNameTxt;
  107.     Stdctrls::TLabel* FilesOfTypeTxt;
  108.     Uptimagecombo::TPTCombobox* FileTypesCbx;
  109.     Stdctrls::TEdit* FileNameEdt;
  110.     Stdctrls::TButton* OpenBtn;
  111.     Stdctrls::TButton* CancelBtn;
  112.     Stdctrls::TComboBox* FileNameCbx;
  113.     Uptsplitter::TPTSplitter* PTSplitter1;
  114.     Uptshellcontrols::TPTShellList* PTShellList1;
  115.     Uptshellcontrols::TPTShellTree* PTShellTree1;
  116.     Stdctrls::TCheckBox* ReadOnlyChk;
  117.     Buttons::TSpeedButton* ShowTreeBtn;
  118.     Stdctrls::TButton* HelpBtn;
  119.     Menus::TPopupMenu* LvPopup;
  120.     Menus::TMenuItem* View1Mitm;
  121.     Menus::TMenuItem* N1;
  122.     Menus::TMenuItem* New1Mitm;
  123.     Menus::TMenuItem* N2;
  124.     Menus::TMenuItem* Properties1Mitm;
  125.     Menus::TMenuItem* Folder1Mitm;
  126.     Menus::TMenuItem* LargeIcons1Mitm;
  127.     Menus::TMenuItem* Smallicons1MItm;
  128.     Menus::TMenuItem* List1Mitm;
  129.     Menus::TMenuItem* Details1Mitm;
  130.     Menus::TMenuItem* Paste1Mitm;
  131.     Menus::TMenuItem* N3;
  132.     Uptframe::TPTGroup* SplitterContainer;
  133.     Buttons::TSpeedButton* ShowDesktopBtn;
  134.     void __fastcall ViewBtnClick(System::TObject* Sender);
  135.     void __fastcall PTShellList1Change(System::TObject* Sender, Comctrls::TListItem* Item, Comctrls::TItemChange 
  136.         Change);
  137.     void __fastcall UpOneLevelBtnClick(System::TObject* Sender);
  138.     void __fastcall ShowTreeBtnClick(System::TObject* Sender);
  139.     void __fastcall FormDestroy(System::TObject* Sender);
  140.     void __fastcall FormKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
  141.     void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
  142.     void __fastcall PTShellTree1Change(System::TObject* Sender, Comctrls::TTreeNode* Node);
  143.     void __fastcall FileTypesCbxSelEndOk(System::TObject* Sender);
  144.     void __fastcall CreateNewFolderBtnClick(System::TObject* Sender);
  145.     void __fastcall FileNameEdtChange(System::TObject* Sender);
  146.     void __fastcall Paste1MitmClick(System::TObject* Sender);
  147.     void __fastcall Properties1MitmClick(System::TObject* Sender);
  148.     void __fastcall HelpBtnClick(System::TObject* Sender);
  149.     void __fastcall ReadOnlyChkClick(System::TObject* Sender);
  150.     void __fastcall PTShellList1FolderChanged(System::TObject* Sender);
  151.     void __fastcall FormResize(System::TObject* Sender);
  152.     void __fastcall ShowDesktopBtnClick(System::TObject* Sender);
  153.     
  154. private:
  155.     bool __fastcall FormHelp(Word Command, int Data, bool &CallHelp);
  156.     void __fastcall ListDblClickOpen(System::TObject* aSender, bool &afHandled);
  157.     MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &aMsg);
  158.     
  159. protected:
  160.     System::AnsiString mDefaultExt;
  161.     TPTOpenOptions mOptions;
  162.     Classes::TStrings* mFiles;
  163.     System::AnsiString mFilter;
  164.     System::AnsiString mInitialDir;
  165.     Classes::TNotifyEvent mOnTypeChanged;
  166.     Classes::TNotifyEvent mOnFolderChanged;
  167.     Classes::TNotifyEvent mOnSelectionChanged;
  168.     Classes::TNotifyEvent mOnFormShow;
  169.     Classes::TNotifyEvent mOnFormClose;
  170.     Classes::THelpEvent mOnFormHelp;
  171.     DYNAMIC void __fastcall DoOnFormClose(void);
  172.     DYNAMIC void __fastcall DoOnFolderChanged(void);
  173.     DYNAMIC void __fastcall DoOnSelectionChanged(void);
  174.     DYNAMIC void __fastcall DoOnFormShow(void);
  175.     DYNAMIC void __fastcall DoOnTypeChanged(void);
  176.     System::AnsiString __fastcall GetFilename(void);
  177.     Classes::TStrings* __fastcall GetFiles(void);
  178.     int __fastcall GetFilterIndex(void);
  179.     int __fastcall GetFormSplitterPos(void);
  180.     Uptshellcontrols::TPTShAddItemEvent __fastcall GetOnAddListItem(void);
  181.     Uptshellcontrols::TPTShAddItemEvent __fastcall GetOnAddTreeItem(void);
  182.     Uptshellcontrols::TPTShAddItemEvent __fastcall GetOnAddComboItem(void);
  183.     Uptshellcontrols::TPTShLvCustomDrawEvent __fastcall GetOnLvCustomDrawSh(void);
  184.     Uptshellcontrols::TPTShLvCustomDrawEvent __fastcall GetOnLvCustomDrawShEx(void);
  185.     Uptshellcontrols::TPTShTvCustomDrawEvent __fastcall GetOnTvCustomDrawSh(void);
  186.     Uptshellcontrols::TPTShTvCustomDrawEvent __fastcall GetOnTvCustomDrawShEx(void);
  187.     void __fastcall SetFilename(System::AnsiString aValue);
  188.     void __fastcall SetFilter(System::AnsiString aValue);
  189.     void __fastcall SetFilterIndex(int aValue);
  190.     void __fastcall SetFormSplitterPos(int aValue);
  191.     void __fastcall SetInitialDir(System::AnsiString aValue);
  192.     void __fastcall SetOptions(TPTOpenOptions aValue);
  193.     void __fastcall SetOnAddListItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  194.     void __fastcall SetOnAddTreeItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  195.     void __fastcall SetOnAddComboItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  196.     void __fastcall SetOnLvCustomDrawSh(Uptshellcontrols::TPTShLvCustomDrawEvent aValue);
  197.     void __fastcall SetOnLvCustomDrawShEx(Uptshellcontrols::TPTShLvCustomDrawEvent aValue);
  198.     void __fastcall SetOnTvCustomDrawSh(Uptshellcontrols::TPTShTvCustomDrawEvent aValue);
  199.     void __fastcall SetOnTvCustomDrawShEx(Uptshellcontrols::TPTShTvCustomDrawEvent aValue);
  200.     System::AnsiString mUserFilter;
  201.     bool mExecuting;
  202.     Classes::TStrings* mSelections;
  203.     TPTFrmOpenDlg_LIS mLastInputState;
  204.     HWND mHGripWindow;
  205.     virtual void __fastcall CreateWnd(void);
  206.     DYNAMIC void __fastcall DoTranslation(void);
  207.     void __fastcall ApplyUserFilter(System::AnsiString aFilter);
  208.     void __fastcall GetSelectedFiles(Classes::TStrings* s);
  209.     void __fastcall ShowTree(bool aShow);
  210.     DYNAMIC void __fastcall DoHide(void);
  211.     DYNAMIC void __fastcall DoShow(void);
  212.     
  213. public:
  214.     __fastcall virtual TPTFrmOpenDlg(Classes::TComponent* aOwner);
  215.     __fastcall virtual ~TPTFrmOpenDlg(void);
  216.     bool __fastcall ParseInputString(const System::AnsiString ins);
  217.     __property System::AnsiString DefaultExt = {read=mDefaultExt, write=mDefaultExt};
  218.     __property bool Executing = {read=mExecuting, nodefault};
  219.     __property TPTOpenOptions Options = {read=mOptions, write=SetOptions, nodefault};
  220.     __property System::AnsiString FileName = {read=GetFilename, write=SetFilename};
  221.     __property Classes::TStrings* Files = {read=GetFiles};
  222.     __property System::AnsiString Filter = {read=mFilter, write=SetFilter};
  223.     __property int FilterIndex = {read=GetFilterIndex, write=SetFilterIndex, default=1};
  224.     __property int FormSplitterPos = {read=GetFormSplitterPos, write=SetFormSplitterPos, default=-1};
  225.     __property HelpContext ;
  226.     __property System::AnsiString InitialDir = {read=mInitialDir, write=SetInitialDir};
  227.     __property Uptshellcontrols::TPTShAddItemEvent OnAddListItem = {read=GetOnAddListItem, write=SetOnAddListItem
  228.         };
  229.     __property Uptshellcontrols::TPTShAddItemEvent OnAddTreeItem = {read=GetOnAddTreeItem, write=SetOnAddTreeItem
  230.         };
  231.     __property Uptshellcontrols::TPTShAddItemEvent OnAddComboItem = {read=GetOnAddComboItem, write=SetOnAddComboItem
  232.         };
  233.     __property Uptshellcontrols::TPTShLvCustomDrawEvent OnLvCustomDrawSh = {read=GetOnLvCustomDrawSh, write=
  234.         SetOnLvCustomDrawSh};
  235.     __property Uptshellcontrols::TPTShLvCustomDrawEvent OnLvCustomDrawShEx = {read=GetOnLvCustomDrawShEx
  236.         , write=SetOnLvCustomDrawShEx};
  237.     __property Uptshellcontrols::TPTShTvCustomDrawEvent OnTvCustomDrawSh = {read=GetOnTvCustomDrawSh, write=
  238.         SetOnTvCustomDrawSh};
  239.     __property Uptshellcontrols::TPTShTvCustomDrawEvent OnTvCustomDrawShEx = {read=GetOnTvCustomDrawShEx
  240.         , write=SetOnTvCustomDrawShEx};
  241.     __property OnHelp ;
  242.     __property Classes::THelpEvent OnFormHelp = {read=mOnFormHelp, write=mOnFormHelp};
  243.     __property Classes::TNotifyEvent OnFormClose = {read=mOnFormClose, write=mOnFormClose};
  244.     __property Classes::TNotifyEvent OnFormShow = {read=mOnFormShow, write=mOnFormShow};
  245.     __property Classes::TNotifyEvent OnFolderChanged = {read=mOnFolderChanged, write=mOnFolderChanged};
  246.         
  247.     __property Classes::TNotifyEvent OnSelectionChanged = {read=mOnSelectionChanged, write=mOnSelectionChanged
  248.         };
  249.     __property Classes::TNotifyEvent OnTypeChanged = {read=mOnTypeChanged, write=mOnTypeChanged};
  250. public:
  251.         
  252.     /* TCustomForm.CreateNew */ __fastcall TPTFrmOpenDlg(Classes::TComponent* AOwner, int Dummy) : Forms::
  253.         TForm(AOwner, Dummy) { }
  254.     
  255. public:
  256.     /* TWinControl.CreateParented */ __fastcall TPTFrmOpenDlg(HWND ParentWindow) : Forms::TForm(ParentWindow
  257.         ) { }
  258.     
  259. };
  260.  
  261. class PASCALIMPLEMENTATION TPTFileDlg : public Fptopendlg::TPTDialog 
  262. {
  263.     typedef Fptopendlg::TPTDialog inherited;
  264.     
  265. private:
  266.     Classes::TStrings* mHistoryList;
  267.     TPTOpenOptions mOptions;
  268.     System::AnsiString mDefaultExt;
  269.     Classes::TStrings* mFiles;
  270.     System::AnsiString mFilter;
  271.     int mFilterIndex;
  272.     Classes::THelpContext mHelpContext;
  273.     System::AnsiString mInitialDir;
  274.     int mFormSplitterPos;
  275.     Uptshellcontrols::TPTShAddItemEvent mOnAddListItemProc;
  276.     Uptshellcontrols::TPTShAddItemEvent mOnAddTreeItemProc;
  277.     Uptshellcontrols::TPTShAddItemEvent mOnAddComboItemProc;
  278.     Classes::TNotifyEvent mOnFolderChanged;
  279.     Classes::TNotifyEvent mOnSelectionChanged;
  280.     Classes::TNotifyEvent mOnTypeChanged;
  281.     Uptshellcontrols::TPTShLvCustomDrawEvent mOnLvCustomDrawShProc;
  282.     Uptshellcontrols::TPTShLvCustomDrawEvent mOnLvCustomDrawShExProc;
  283.     Uptshellcontrols::TPTShTvCustomDrawEvent mOnTvCustomDrawShProc;
  284.     Uptshellcontrols::TPTShTvCustomDrawEvent mOnTvCustomDrawShExProc;
  285.     Classes::THelpEvent mOnHelp;
  286.     System::AnsiString __fastcall GetFilename(void);
  287.     int __fastcall GetFilterIndex(void);
  288.     void __fastcall SetFilename(System::AnsiString aValue);
  289.     void __fastcall SetOptions(TPTOpenOptions aValue);
  290.     void __fastcall SetFilter(System::AnsiString aValue);
  291.     void __fastcall SetFilterIndex(int aValue);
  292.     void __fastcall SetFormSplitterPos(int aValue);
  293.     void __fastcall SetOnAddListItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  294.     void __fastcall SetOnAddTreeItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  295.     void __fastcall SetOnAddComboItem(Uptshellcontrols::TPTShAddItemEvent aValue);
  296.     void __fastcall SetHistoryList(Classes::TStrings* aValue);
  297.     
  298. protected:
  299.     TPTFrmOpenDlg* mForm;
  300.     DYNAMIC bool __fastcall DoExecute(void);
  301.     DYNAMIC TPTFrmOpenDlg* __fastcall CreateForm(void);
  302.     DYNAMIC void __fastcall InitForm(TPTFrmOpenDlg* aForm);
  303.     DYNAMIC void __fastcall SaveFormSettings(TPTFrmOpenDlg* aForm);
  304.     __property TPTFrmOpenDlg* Form = {read=mForm};
  305.     __property System::AnsiString DefaultExt = {read=mDefaultExt, write=mDefaultExt};
  306.     __property TPTOpenOptions Options = {read=mOptions, write=SetOptions, nodefault};
  307.     __property System::AnsiString FileName = {read=GetFilename, write=SetFilename};
  308.     __property Classes::TStrings* Files = {read=mFiles};
  309.     __property System::AnsiString Filter = {read=mFilter, write=SetFilter};
  310.     __property int FilterIndex = {read=GetFilterIndex, write=SetFilterIndex, default=1};
  311.     __property int FormSplitterPos = {read=mFormSplitterPos, write=SetFormSplitterPos, default=-1};
  312.     __property Classes::THelpContext HelpContext = {read=mHelpContext, write=mHelpContext, default=0};
  313.     __property Classes::TStrings* HistoryList = {read=mHistoryList, write=SetHistoryList, stored=false}
  314.         ;
  315.     __property System::AnsiString InitialDir = {read=mInitialDir, write=mInitialDir};
  316.     __property Uptshellcontrols::TPTShAddItemEvent OnAddListItem = {read=mOnAddListItemProc, write=SetOnAddListItem
  317.         };
  318.     __property Uptshellcontrols::TPTShAddItemEvent OnAddTreeItem = {read=mOnAddTreeItemProc, write=SetOnAddTreeItem
  319.         };
  320.     __property Uptshellcontrols::TPTShAddItemEvent OnAddComboItem = {read=mOnAddComboItemProc, write=SetOnAddComboItem
  321.         };
  322.     __property Uptshellcontrols::TPTShLvCustomDrawEvent OnLvCustomDrawSh = {read=mOnLvCustomDrawShProc, 
  323.         write=mOnLvCustomDrawShProc};
  324.     __property Uptshellcontrols::TPTShLvCustomDrawEvent OnLvCustomDrawShEx = {read=mOnLvCustomDrawShExProc
  325.         , write=mOnLvCustomDrawShExProc};
  326.     __property Uptshellcontrols::TPTShTvCustomDrawEvent OnTvCustomDrawSh = {read=mOnTvCustomDrawShProc, 
  327.         write=mOnTvCustomDrawShProc};
  328.     __property Uptshellcontrols::TPTShTvCustomDrawEvent OnTvCustomDrawShEx = {read=mOnTvCustomDrawShExProc
  329.         , write=mOnTvCustomDrawShExProc};
  330.     __property Classes::THelpEvent OnHelp = {read=mOnHelp, write=mOnHelp};
  331.     __property Classes::TNotifyEvent OnFolderChanged = {read=mOnFolderChanged, write=mOnFolderChanged};
  332.         
  333.     __property Classes::TNotifyEvent OnSelectionChanged = {read=mOnSelectionChanged, write=mOnSelectionChanged
  334.         };
  335.     __property Classes::TNotifyEvent OnTypeChanged = {read=mOnTypeChanged, write=mOnTypeChanged};
  336.     
  337. public:
  338.     __fastcall virtual TPTFileDlg(Classes::TComponent* aOwner);
  339.     __fastcall virtual ~TPTFileDlg(void);
  340.     DYNAMIC void __fastcall ReadStateFromStream(Classes::TStream* aStream);
  341.     DYNAMIC void __fastcall WriteStateToStream(Classes::TStream* aStream);
  342. };
  343.  
  344. class DELPHICLASS TPTCustomOpenDlg;
  345. class PASCALIMPLEMENTATION TPTCustomOpenDlg : public Fptopendlg::TPTFileDlg 
  346. {
  347.     typedef Fptopendlg::TPTFileDlg inherited;
  348.     
  349. protected:
  350.     DYNAMIC void __fastcall InitForm(TPTFrmOpenDlg* aForm);
  351.     
  352. public:
  353.     __fastcall virtual TPTCustomOpenDlg(Classes::TComponent* aOwner);
  354. public:
  355.     /* TPTFileDlg.Destroy */ __fastcall virtual ~TPTCustomOpenDlg(void) { }
  356.     
  357. };
  358.  
  359. class DELPHICLASS TPTOpenDlg;
  360. class PASCALIMPLEMENTATION TPTOpenDlg : public Fptopendlg::TPTCustomOpenDlg 
  361. {
  362.     typedef Fptopendlg::TPTCustomOpenDlg inherited;
  363.     
  364. public:
  365.     __property Executing ;
  366.     __property FileName ;
  367.     __property Files ;
  368.     __property Form ;
  369.     
  370. __published:
  371.     __property Title ;
  372.     __property Options ;
  373.     __property Filter ;
  374.     __property FilterIndex ;
  375.     __property FormWidth ;
  376.     __property FormHeight ;
  377.     __property FormWindowState ;
  378.     __property FormSplitterPos ;
  379.     __property HelpContext ;
  380.     __property HistoryList ;
  381.     __property InitialDir ;
  382.     __property DefaultExt ;
  383.     __property OnAddListItem ;
  384.     __property OnAddTreeItem ;
  385.     __property OnAddComboItem ;
  386.     __property OnInitialized ;
  387.     __property OnLvCustomDrawSh ;
  388.     __property OnLvCustomDrawShEx ;
  389.     __property OnTvCustomDrawSh ;
  390.     __property OnTvCustomDrawShEx ;
  391.     __property OnHelp ;
  392.     __property OnFormClose ;
  393.     __property OnFormShow ;
  394.     __property OnFolderChanged ;
  395.     __property OnSelectionChanged ;
  396.     __property OnTypeChanged ;
  397. public:
  398.     /* TPTCustomOpenDlg.Create */ __fastcall virtual TPTOpenDlg(Classes::TComponent* aOwner) : Fptopendlg::
  399.         TPTCustomOpenDlg(aOwner) { }
  400.     
  401. public:
  402.     /* TPTFileDlg.Destroy */ __fastcall virtual ~TPTOpenDlg(void) { }
  403.     
  404. };
  405.  
  406. class DELPHICLASS TPTCustomSaveDlg;
  407. class PASCALIMPLEMENTATION TPTCustomSaveDlg : public Fptopendlg::TPTFileDlg 
  408. {
  409.     typedef Fptopendlg::TPTFileDlg inherited;
  410.     
  411. protected:
  412.     DYNAMIC void __fastcall InitForm(TPTFrmOpenDlg* aForm);
  413.     
  414. public:
  415.     __fastcall virtual TPTCustomSaveDlg(Classes::TComponent* aOwner);
  416. public:
  417.     /* TPTFileDlg.Destroy */ __fastcall virtual ~TPTCustomSaveDlg(void) { }
  418.     
  419. };
  420.  
  421. class DELPHICLASS TPTSaveDlg;
  422. class PASCALIMPLEMENTATION TPTSaveDlg : public Fptopendlg::TPTCustomSaveDlg 
  423. {
  424.     typedef Fptopendlg::TPTCustomSaveDlg inherited;
  425.     
  426. public:
  427.     __property Executing ;
  428.     __property FileName ;
  429.     __property Files ;
  430.     __property Form ;
  431.     
  432. __published:
  433.     __property DefaultExt ;
  434.     __property Title ;
  435.     __property Options ;
  436.     __property Filter ;
  437.     __property FilterIndex ;
  438.     __property FormWidth ;
  439.     __property FormHeight ;
  440.     __property FormWindowState ;
  441.     __property FormSplitterPos ;
  442.     __property HelpContext ;
  443.     __property HistoryList ;
  444.     __property InitialDir ;
  445.     __property OnAddListItem ;
  446.     __property OnAddTreeItem ;
  447.     __property OnAddComboItem ;
  448.     __property OnInitialized ;
  449.     __property OnLvCustomDrawSh ;
  450.     __property OnLvCustomDrawShEx ;
  451.     __property OnTvCustomDrawSh ;
  452.     __property OnTvCustomDrawShEx ;
  453.     __property OnHelp ;
  454.     __property OnFormClose ;
  455.     __property OnFormShow ;
  456.     __property OnFolderChanged ;
  457.     __property OnSelectionChanged ;
  458.     __property OnTypeChanged ;
  459. public:
  460.     /* TPTCustomSaveDlg.Create */ __fastcall virtual TPTSaveDlg(Classes::TComponent* aOwner) : Fptopendlg::
  461.         TPTCustomSaveDlg(aOwner) { }
  462.     
  463. public:
  464.     /* TPTFileDlg.Destroy */ __fastcall virtual ~TPTSaveDlg(void) { }
  465.     
  466. };
  467.  
  468. //-- var, const, procedure ---------------------------------------------------
  469. #define DEF_OPEN_OPTIONS (System::Set<TPTOpenOption, ptofAllowMultiselect, ptofShowHidden> () << ptofHideReadOnly \
  470.     << ptofAllowTree << ptofShowHints << ptofOleDrag << ptofOleDrop << ptofShowHidden )
  471. #define DEF_SAVE_OPTIONS (System::Set<TPTOpenOption, ptofAllowMultiselect, ptofShowHidden> () << ptofHideReadOnly \
  472.     << ptofAllowTree << ptofShowHints << ptofOleDrag << ptofOleDrop << ptofShowHidden )
  473. extern PACKAGE TPTFrmOpenDlg* PTFrmOpenDlg;
  474.  
  475. }    /* namespace Fptopendlg */
  476. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  477. using namespace Fptopendlg;
  478. #endif
  479. //-- end unit ----------------------------------------------------------------
  480. #endif    // FPTOpenDlg
  481.